***In-Text Statistics***


**Demographic characteristics**

tab gender_response if round == 1 
sum age_response if round == 1 


**Video characteristics**

*Violent
sort treatment
by treatment: sum video_q6 if round == 1 
anova video_q6 treatment if (treatment == 1 | treatment == 2) & round == 1 
estat esize, level(90)

*Stressful
sort treatment
by treatment: sum video_q4 if round == 1 
anova video_q4 treatment if (treatment == 1 | treatment == 2) & round == 1 
estat esize, level(90)

*Frustrating
sort treatment
by treatment: sum video_q2 if round == 1 
anova video_q2 treatment if (treatment == 1 | treatment == 2) & round == 1 
estat esize, level(90)

*Exciting
sort treatment
by treatment: sum video_q3 if round == 1 
anova video_q3 treatment if (treatment == 1 | treatment == 2) & round == 1 
estat esize, level(90)

*Enjoyable
sort treatment
by treatment: sum video_q1 if round == 1 
anova video_q1 treatment if (treatment == 1 | treatment == 2) & round == 1 
estat esize, level(90)

*Interesting
sort treatment
by treatment: sum video_q5 if round == 1 
anova video_q5 treatment if (treatment == 1 | treatment == 2) & round == 1 
estat esize, level(90)


**Average aggression in all rounds**

ttest intensity_mean_all  if (treatment == 1 | treatment == 2) & round == 1 , by (treatment)
anova intensity_mean_all treatment if (treatment == 1 | treatment == 2) & round == 1 
estat esize, level(90)

ttest duration_mean_all  if (treatment == 1 | treatment == 2) & round == 1 , by (treatment)
anova duration_mean_all treatment if (treatment == 1 | treatment == 2) & round == 1 
estat esize, level(90)

ttest intensityduration_mean_all  if (treatment == 1 | treatment == 2) & round == 1 , by (treatment)
anova intensityduration_mean_all treatment if (treatment == 1 | treatment == 2) & round == 1 
estat esize, level(90)


**First-round unprovoked aggression**

ttest valuesp_blast_intensity  if (treatment == 1 | treatment == 2) & round == 1 , by (treatment)
anova valuesp_blast_intensity treatment if (treatment == 1 | treatment == 2) & round == 1 
estat esize, level(90)

ttest valuesp_blast_duration  if (treatment == 1 | treatment == 2) & round == 1 , by (treatment)
anova valuesp_blast_duration treatment if (treatment == 1 | treatment == 2) & round == 1 
estat esize, level(90)

ttest intensityduration  if (treatment == 1 | treatment == 2) & round == 1 , by (treatment)
anova intensityduration treatment if (treatment == 1 | treatment == 2) & round == 1 
estat esize, level(90)


**Second-round provoked aggression**

ttest valuesp_blast_intensity  if (treatment == 1 | treatment == 2) & round == 2 , by (treatment)
anova valuesp_blast_intensity treatment if (treatment == 1 | treatment == 2) & round == 2 
estat esize, level(90)

ttest valuesp_blast_duration  if (treatment == 1 | treatment == 2) & round == 2 , by (treatment)
anova valuesp_blast_duration treatment if (treatment == 1 | treatment == 2) & round == 2 
estat esize, level(90)

ttest intensityduration  if (treatment == 1 | treatment == 2) & round == 2 , by (treatment)
anova intensityduration treatment if (treatment == 1 | treatment == 2) & round == 2 
estat esize, level(90)


**Average unprovoked aggression**

ttest intensity_mean_afterwins  if (treatment == 1 | treatment == 2) & round == 1 , by (treatment)
anova intensity_mean_afterwins treatment if (treatment == 1 | treatment == 2) & round == 1 
estat esize, level(90)

ttest duration_mean_afterwins  if (treatment == 1 | treatment == 2) & round == 1 , by (treatment)
anova duration_mean_afterwins treatment if (treatment == 1 | treatment == 2) & round == 1 
estat esize, level(90)

ttest intensityduration_mean_afterwins  if (treatment == 1 | treatment == 2) & round == 1 , by (treatment)
anova intensityduration_mean_afterwins treatment if (treatment == 1 | treatment == 2) & round == 1 
estat esize, level(90)


**Average provoked aggression**

ttest intensity_mean_afterloss  if (treatment == 1 | treatment == 2) & round == 1 , by (treatment)
anova intensity_mean_afterloss treatment if (treatment == 1 | treatment == 2) & round == 1 
estat esize, level(90)

ttest duration_mean_afterloss  if (treatment == 1 | treatment == 2) & round == 1 , by (treatment)
anova duration_mean_afterloss treatment if (treatment == 1 | treatment == 2) & round == 1 
estat esize, level(90)

ttest intensityduration_mean_afterloss  if (treatment == 1 | treatment == 2) & round == 1 , by (treatment)
anova intensityduration_mean_afterloss treatment if (treatment == 1 | treatment == 2) & round == 1 
estat esize, level(90)


**High-level aggression**

ttest highintensity_sum  if (treatment == 1 | treatment == 2) & round == 1 , by (treatment)
anova highintensity_sum treatment if (treatment == 1 | treatment == 2) & round == 1 
estat esize, level(90)

ttest highduration_sum  if (treatment == 1 | treatment == 2) & round == 1 , by (treatment)
anova highduration_sum treatment if (treatment == 1 | treatment == 2) & round == 1 
estat esize, level(90)


**Previous exposure to violent media: high**

sum violence_videogames if round == 1, d
local median_vg = r(p50)
di `median_vg'

sum violence_news if round == 1, d
local median_news = r(p50)
di `median_news'

sum violence_tv if round == 1, d
local median_tv = r(p50)
di `median_tv'

ttest intensityduration_mean_all  if (treatment == 1 | treatment == 2) & round == 1  & violence_videogames > `median_vg', by (treatment)
anova intensityduration_mean_all treatment if (treatment == 1 | treatment == 2) & round == 1  & violence_videogames > `median_vg'
estat esize, level(90)

ttest intensityduration_mean_all  if (treatment == 1 | treatment == 2) & round == 1  & violence_tv > `median_tv', by (treatment)
anova intensityduration_mean_all treatment if (treatment == 1 | treatment == 2) & round == 1  & violence_tv > `median_tv'
estat esize, level(90)

ttest intensityduration_mean_all  if (treatment == 1 | treatment == 2) & round == 1  & violence_news > `median_news', by (treatment)
anova intensityduration_mean_all treatment if (treatment == 1 | treatment == 2) & round == 1  & violence_news > `median_news'
estat esize, level(90)


**Previous exposure to violent media: low**

ttest intensityduration_mean_all  if (treatment == 1 | treatment == 2) & round == 1  & violence_videogames <= `median_vg', by (treatment)
anova intensityduration_mean_all treatment if (treatment == 1 | treatment == 2) & round == 1  & violence_videogames <= `median_vg'
estat esize, level(90)

ttest intensityduration_mean_all  if (treatment == 1 | treatment == 2) & round == 1  & violence_tv <= `median_tv', by (treatment)
anova intensityduration_mean_all treatment if (treatment == 1 | treatment == 2) & round == 1  & violence_tv <= `median_tv'
estat esize, level(90)

ttest intensityduration_mean_all  if (treatment == 1 | treatment == 2) & round == 1  & violence_news <= `median_news', by (treatment)
anova intensityduration_mean_all treatment if (treatment == 1 | treatment == 2) & round == 1  & violence_news <= `median_news'
estat esize, level(90)


**Footnote 3: Sex and trait aggression**

gen female = 0 if (gender_response == 2 | gender_response == 3)
replace female = 1 if gender_response == 1

label define female 1 "Female" 0 "Male/Other", modify
label values female female

anova intensityduration_mean_all female if (treatment == 1) & round == 1 
estat esize, level(90)

anova intensityduration_mean_all female if (treatment == 2) & round == 1 
estat esize, level(90)

anova intensityduration_mean_all  trait_aggression_high if (treatment == 1) & round == 1 
estat esize, level(90)

anova intensityduration_mean_all  trait_aggression_high if (treatment == 2) & round == 1 
estat esize, level(90)


**Clean up**

drop x_r-pvalue_vio
save, replace
